int yuubandatapickup1( int nos, array< char, 2 >^ data, int *nos1, array< char, 2 >^ *ken, int *nos2, array< char, 2 >^ *shi, int *nos3, array< char, 2 >^ *kuiki )
    {
        int n1 = 0, n2 = 0, n3 = 0, n4 = 0, n5 = 0;
        int i, j, m, m1, len, ip1, ip3;
        int cnt1, cnt2, cnt3;
        bool crflg, lfflg, endflg;
        char* cr = "\r";
        char* lf = "\n";
        char* ch1 = ",";
        char ch2[ 2 ]; ch2[ 0 ] = '"'; ch2[ 1 ] = NULL;
        char s2[ 3 ];
        char s3[ 3 ];
        char s4[ accesdatalen ];
        char s5[ accesdatalen ];
        char s6[ accesdatalen ];
        char s7[ accesdatalen ];
        char s8[ accesdatalen ];
        char s9[ accesdatalen ];
        cnt1 = 0; cnt2 = 0; cnt3 = 0;
        len = systemdatalen;
        s4[ 0 ] = NULL; s5[ 0 ] = NULL; s6[ 0 ] = NULL;
        for ( m = 0; m < nos; m++ )
        {
            n1 = 0;
            n4 = 0;
            crflg = false;
            lfflg = false;
            endflg = false;
            for ( m1 = 0; m1 < len; m1++ )
            {
                s2[ n4 ] = data[ m, m1 ];
                n4++;
                if ( n4 >= 1 )
                {
                    s2[ n4 ] = NULL;
                    if ( strcmp( s2, cr ) == 0 ) { crflg = true; n1 = m1; }
                    if ( strcmp( s2, lf ) == 0 && crflg ) lfflg = true;
                    if ( lfflg )
                    {
                        ip1 = 0;
                        ip3 = 0;
                        n3 = 0;
                        n5 = 0;
                        s7[ n3 ] = NULL; s8[ n3 ] = NULL; s9[ n3 ] = NULL;
                        for ( i = 0; i < n1; i++ )
                        {
                            s3[ n5 ] = data[ m, i ];
                            n5++;
                            if ( n5 >= 1 )
                            {
                                s3[ n5 ] = NULL;
                                if ( strcmp( s3, ch1 ) == 0 ) ip1++;
                                if ( ip1 >= 6 )
                                {
                                    if ( strcmp( s3, ch2 ) == 0 ) ip3++;
                                    if ( ip1 == 6 && ip3 == 2 )
                                    {
                                        s7[ n3 ] = NULL;
                                        if ( strcmp( s4, s7 ) != 0 )
                                        {
                                            for ( j = 0; j < n3; j++ ) ( *ken )[ cnt1, j ] = s7[ j ];
                                            cnt1++;
                                            strcpy_s( s4, accesdatalen, s7 );
                                        }
                                        n4 = 0;
                                        n3 = 0;
                                    }
                                    if ( ip1 == 7 && ip3 == 4 )
                                    {
                                        s8[ n3 ] = NULL;
                                        if ( strcmp( s5, s8 ) != 0 )
                                        {
                                            for ( j = 0; j < n3; j++ ) ( *shi )[ cnt2, j ] = s8[ j ];
                                            cnt2++;
                                            strcpy_s( s5, accesdatalen, s8 );
                                        }
                                        n4 = 0;
                                        n3 = 0;
                                    }
                                    if ( ip1 == 8 && ip3 == 6 )
                                    {
                                        s9[ n3 ] = NULL;
                                        if ( strcmp( s6, s9 ) != 0 )
                                        {
                                            for ( j = 0; j < n3; j++ ) ( *kuiki )[ cnt3, j ] = s9[ j ];
                                            cnt3++;
                                            strcpy_s( s6, accesdatalen, s9 );
                                        }
                                        n1 = 0;
                                        n4 = 0;
                                        ip3 = 0;
                                        n3 = 0;
                                        s7[ n3 ] = NULL; s8[ n3 ] = NULL; s9[ n3 ] = NULL;
                                        crflg = false;
                                        lfflg = false;
                                        endflg = true;
                                        break;
                                    }
                                    if ( ip1 == 6 && ip3 == 1 && strcmp( s3, ch2 ) != 0 ) { s7[ n3 ] = s3[ 0 ]; n3++; }
                                    if ( ip1 == 7 && ip3 == 3 && strcmp( s3, ch2 ) != 0 ) { s8[ n3 ] = s3[ 0 ]; n3++; }
                                    if ( ip1 == 8 && ip3 == 5 && strcmp( s3, ch2 ) != 0 ) { s9[ n3 ] = s3[ 0 ]; n3++; }
                                }
                                n5 = 0;
                                s3[ n5 ] = NULL;
                            }
                        }
                    }
                    n4 = 0;
                    if ( endflg ) break;
                }
            }
        }
        *nos1 = cnt1;
        *nos2 = cnt2;
        *nos3 = cnt3;
        Trace::WriteLineIf( debugflg, " yuubandatapickup1 ( 1 ) record count cnt1 = " + cnt1 + " cnt2 = " + cnt2 + " cnt3 = " + cnt3 );
        return 0;
    }